This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
RE: How to edit attachment from Lotus script ~Lily Nonwetherjip 27.Jan.04 02:02 PM a Web browser Domino Designer All ReleasesAll Platforms
Use the 'NotesEmbeddedObject class':
This is in the Help, and I suggest that you search this and previous forums for the answer if you need further help....!
Dim doc As NotesDocument
Dim rtitem As Variant
'************...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Set handle = o.Activate( False )
If ( handle Is Nothing ) Then
doc.Subject = "This object has no OLE automation interface"
Else
doc.Subject = "This object has an OLE automation interface"
End If
Call doc.Save( False, True )
End If
End Forall
End If